home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / tool_inc.zip / BYTEFLAG.INT < prev    next >
Text File  |  1989-06-02  |  120b  |  3 lines

  1. function getbbit(bits: byte; bitval: byte): boolean;
  2. procedure setbbit(var bits: byte; bitval: byte; value: boolean);
  3.